home *** CD-ROM | disk | FTP | other *** search
/ Birth of Jesus Activity Center / Birth of Jesus Activity Center.iso / mac / data / babyj.dir / 00292_Script_LC_btnName < prev    next >
Text File  |  1997-11-02  |  1KB  |  36 lines
  1. -- class name buttons
  2.  
  3. property ancestor
  4. property memID, rollmemID, clkmemID, clkEnable, difficulty, gameID
  5.  
  6. global gMouseDownList, gMouseUpList, gRolloverList, gHoldOverList, gLastRollover
  7. global gPlayerName, gDifficulty, gGameList, gGameRec, gPlayerID, gNameListTop
  8. global SAVEREC_NAME, SAVEREC_DIFFICULTY
  9.  
  10. on new me, ch, ink, vis, stdm, rollm, clkm, htime, id
  11.   set ancestor = new(script "LC_btnSprite", ch, ink, vis, stdm, rollm, clkm, htime)
  12.   set gameID = id
  13.   setAt gMouseDownList, ch, me
  14.   setAt gMouseUpList, ch, me
  15.   setAt gRolloverList, ch, me
  16.   setAt gHoldOverList, ch, me
  17.   return me
  18. end
  19.  
  20. on handleAction me
  21.   --  respond to click
  22.   if the text of member("name" & gameID) <> " " then
  23.     set gPlayerID = gNameListTop + gameID
  24.     set gGameRec = getAt(gGameList, gPlayerID)
  25.     
  26.     set gPlayerName = getAt(gGameRec, SAVEREC_NAME)
  27.     set gDifficulty = getAt(gGameRec, SAVEREC_DIFFICULTY)
  28.     
  29.     handleGoForward
  30.   end if
  31. end
  32.  
  33. on handleHoldOver me
  34.   --  respond to Hold Over
  35. end
  36.